home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / sinus-plot l1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  951 b   |  34 lines
  1. 10 REM SINUS-PLOT PROGRAMM
  2. 20 V=53248 : REM STARTADRESSE DES GRAPHIK-PROZESSORS
  3. 30 AD=8192 : REM STARTADRESSE DER HI-RES BITMAP
  4. 40 POKEV+17,59 : REM EINSCHALTEN DER GRAPHIK
  5. 50 POKEV+24,24 : REM EINSCHALTEN DER GRAPHIK
  6. 60 FOR I=1024 TO 2023
  7. 70 : POKE I,16 : REM FARBKENNZAHL
  8. 80 NEXT I
  9. 90 FOR I=8192 TO 16383 : REM LOESCHEN DER HI-RES BITMAP
  10. 100 : POKE I,0
  11. 110 NEXT I
  12. 120 FOR X=0 TO 319 : REM ZEICHNEN DER X-ACHSE
  13. 130 : Y=100 : REM POSITION DER X-ACHSE
  14. 140 : GOSUB 1000 : REM AUFRUF DER ZEICHENROUTINE
  15. 150 NEXT X
  16. 160 FOR Y=0 TO 199 : REM ZEICHNEN DER Y-ACHSE
  17. 170 : X=160 : REM POSITION DER Y-ACHSE
  18. 180 : GOSUB 1000 : REM AUFRUF DER ZEICHEN-ROUTINE
  19. 190 NEXT Y
  20. 200 X=0
  21. 210 FOR I=-3.141593 TO 3.141593 STEP 0.019635
  22. 220 : REM INTERVALLGRENZEN
  23. 230 : Y=100+99*SIN(I) : REM FUNKTION
  24. 240 : GOSUB 1000
  25. 250 : X=X+1
  26. 260 NEXT I
  27. 270 GOTO 270 : REM DAMIT DER BILDSCHIRM NICHT VERAENDERT WIRD
  28. 1000 OY=320*INT(Y/8)+(Y AND 7) : REM BERECHNRN DES PUNKTES
  29. 1010 OX=8*INT(X/8)
  30. 1020 MA=2^((7-X) AND 7)
  31. 1030 AV=AD+OY+OX
  32. 1040 POKE AV,PEEK(AV) OR MA : REM PLOTTEN DES PUNKTES
  33. 1050 RETURN
  34.